Delphi Developer's Kit 1996/Delphi Developer's Kit 1996.iso/power/vbwsk03a/vbwsk/frmtest.frm

Text File | 1995-12-22 | 7KB | 267 lines

VERSION 2.00
Begin Form frmTest
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "VBWsk Test Tool"
   ClientHeight    =   4530
   ClientLeft      =   900
   ClientTop       =   2775
   ClientWidth     =   4335
   Height          =   5220
   Icon            =   FRMTEST.FRX:0000
   Left            =   840
   LinkTopic       =   "Form1"
   ScaleHeight     =   4530
   ScaleWidth      =   4335
   Top             =   2145
   Width           =   4455
   Begin VBWsk wsk
      Blocking        =   0   'False
      EOL             =   ""
      Left            =   720
      Port            =   ""
      Top             =   720
   End
   Begin TextBox txtPort
      Height          =   285
      Left            =   120
      TabIndex        =   1
      Top             =   960
      Width           =   975
   End
   Begin CheckBox chkLineMode
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Line Mode"
      Height          =   255
      Left            =   1320
      TabIndex        =   2
      Top             =   960
      Width           =   1215
   End
   Begin CommandButton cmdClose
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Close"
      Height          =   375
      Left            =   3000
      TabIndex        =   5
      Top             =   840
      Width           =   1215
   End
   Begin TextBox txtSend
      Height          =   285
      Left            =   120
      TabIndex        =   4
      Top             =   4080
      Width           =   4095
   End
   Begin TextBox txtStatus
      Height          =   2055
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   8
      TabStop         =   0   'False
      Top             =   1680
      Width           =   4095
   End
   Begin CommandButton cmdOpen
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Open"
      Height          =   375
      Left            =   3000
      TabIndex        =   3
      Top             =   360
      Width           =   1215
   End
   Begin TextBox txtHost
      Height          =   285
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   2535
   End
   Begin Label lblBytesOut
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      Height          =   255
      Left            =   720
      TabIndex        =   12
      Top             =   3840
      Width           =   3495
   End
   Begin Label lblBytesIn
      Alignment       =   1  'Right Justify
      BackColor       =   &H00C0C0C0&
      Height          =   255
      Left            =   1080
      TabIndex        =   11
      Top             =   1440
      Width           =   3135
   End
   Begin Label Label4
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Send:"
      Height          =   195
      Left            =   120
      TabIndex        =   10
      Top             =   3840
      Width           =   510
   End
   Begin Label Label3
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "Received:"
      Height          =   195
      Left            =   120
      TabIndex        =   9
      Top             =   1440
      Width           =   885
   End
   Begin Label Label2
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Port:"
      Height          =   195
      Left            =   120
      TabIndex        =   7
      Top             =   720
      Width           =   420
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Host:"
      Height          =   195
      Left            =   120
      TabIndex        =   6
      Top             =   120
      Width           =   465
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      Begin Menu mnuFileExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu mnuTest
      Caption         =   "&Test"
      Begin Menu mnuTestFlood
         Caption         =   "&Flood"
      End
   End
End

Sub chkLineMode_Click ()
    If chkLineMode Then
        wsk.EOL = Chr$(13) + Chr$(10)
    Else
        wsk.EOL = ""
    End If
End Sub

Sub cmdClose_Click ()
    wsk.Socket = INVALID_SOCKET
    StatusMsg "[CLOSING]"
End Sub

Sub cmdOpen_Click ()
    DoOpen
End Sub

Sub DoOpen ()
    wsk.Port = txtPort
    wsk.Host = txtHost
    StatusMsg "[OPENING " + wsk.Host + ":" + wsk.Port + "]"
End Sub

Sub Form_Load ()
    If Command$ <> "" Then
        If InStr(Command$, " ") Then
            txtHost = Left$(Command$, InStr(Command$, " ") - 1)
            txtPort = Mid$(Command$, InStr(Command$, " ") + 1)
        Else
            txtHost = ""
            txtPort = Command$
        End If
        chkLineMode.Value = 1
        DoOpen
    End If
End Sub

Sub mnuFileExit_Click ()
    End
End Sub

Sub mnuTestFlood_Click ()
    s = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" + Chr$(13) + Chr$(10)
    For i% = 1 To 100
        n% = 0
        Debug.Print "Send "; i%; ": ";
        While n% < Len(s)
            wsk = Mid$(s, n% + 1)
            If wsk.Sent <> SOCKET_ERROR Then n% = n% + wsk.Sent
            Debug.Print wsk.Sent; " ";
            DoEvents
        Wend
        Debug.Print
    Next
End Sub

Sub StatusMsg (msg As String)
    txtStatus.SelStart = 32767
    txtStatus.SelText = msg + Chr$(13) + Chr$(10)
End Sub

Sub txtSend_KeyPress (KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        If txtSend <> "" Then
            wsk = txtSend + wsk.EOL
        Else
            wsk = wsk.EOL
        End If
        txtSend = ""
    End If
End Sub

Sub txtStatus_KeyPress (KeyAscii As Integer)
    KeyAscii = 0
End Sub

Sub wsk_Accept ()
    a% = wsk.Socket
    wsk.Socket = a%
    StatusMsg "[ACCEPT on " + Str$(a%) + ", new is " + Str$(wsk.Socket) + " from " + wsk.Host + "]"
    frmTest.Caption = App.Title + " (" + Str$(wsk.Socket) + ")"
End Sub

Sub wsk_Close ()
    StatusMsg "[DISCONNECTED]"
    wsk.Socket = INVALID_SOCKET
    frmTest.Caption = App.Title + " (" + Str$(wsk.Socket) + ")"
End Sub

Sub wsk_Connect ()
    StatusMsg "[CONNECTED]"
    frmTest.Caption = App.Title + " (" + Str$(wsk.Socket) + ")"
End Sub

Sub wsk_OutOfBand ()
    StatusMsg "[OOB]"
End Sub

Sub wsk_Read ()
    StatusMsg "[READ]"
    While Not wsk.EOF
        s$ = wsk
        lblBytesIn = Str$(Val(lblBytesIn) + Len(s$) + Len(wsk.EOL))
        StatusMsg s$
    Wend
End Sub

Sub wsk_Write ()
    StatusMsg "[WRITE]"
End Sub